(load "number.el")

(defun Integer (name)
  (let* ((*class "Integer")
	 (*instance-name name)
	 (*value nil)
	 (*super (Number name))
	 
	 (*dispatch
	  (lambda (msg)
	    (cond
;;	     ((eq msg "allMask:")
;;	      (lambda ()
;;		...))
;;	     ((eq msg "noMask:")
;;	      (lambda ()
;;		...))
;;	     ((eq msg "bitAnd:")
;;	      (lambda ()
;;		...))
;;	     ((eq msg "bitOr:")
;;	      (lambda ()
;;		...))	
	     (t
	      ((*super msg)))
	     )))
	 )
    
    *dispatch))

